From 4124c39f4028f868b398149bc65cc7de6515261d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 31 May 1993 07:19:04 +0000 Subject: [PATCH] (mod): Use cl-floor. (rem): Use cl-truncate. --- lisp/cl.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/cl.el b/lisp/cl.el index 0e648633a52..e4777ef3794 100644 --- a/lisp/cl.el +++ b/lisp/cl.el @@ -1806,18 +1806,18 @@ DIVISOR defaults to 1. The remainder is produced as a second value." (defun mod (number divisor) "Return remainder of X by Y (rounding quotient toward minus infinity). -That is, the remainder goes with the quotient produced by `floor'. +That is, the remainder goes with the quotient produced by `cl-floor'. Emacs Lisp hint: If you know that both arguments are positive, use `%' instead for speed." - (floor number divisor) + (cl-floor number divisor) (cadr *mvalues-values*)) (defun rem (number divisor) "Return remainder of X by Y (rounding quotient toward zero). -That is, the remainder goes with the quotient produced by `truncate'. +That is, the remainder goes with the quotient produced by `cl-truncate'. Emacs Lisp hint: If you know that both arguments are positive, use `%' instead for speed." - (truncate number divisor) + (cl-truncate number divisor) (cadr *mvalues-values*)) ;;; internal utilities -- 2.30.2